home *** CD-ROM | disk | FTP | other *** search
/ Developer Helper 1: Phil & Dave's Excellent CD / Phil and Dave's Excellent CD HFS Files.7z / Phil and Dave's Excellent CD HFS Files / Peripherals / HyperScan / HyperScan 1.0 / card_19496.txt < prev    next >
Text File  |  1989-02-26  |  10KB  |  441 lines
  1. -- card: 19496 from stack: in.0
  2. -- bmap block id: 4382
  3. -- flags: 4000
  4. -- background id: 18320
  5. -- name: Welcome
  6. ----- HyperTalk script -----
  7. on toggleAboutBox
  8.   if visible of card field "About"
  9.   then
  10.   lock screen
  11.   hide card field "About"
  12.   hide button "Install"
  13.   unlock screen with iris close
  14. else
  15.   lock screen
  16.   show card field "About"
  17.   show button "Install"
  18.   unlock screen with zoom open
  19. end if
  20. end toggleAboutBox
  21.  
  22.  
  23. on closeCard
  24.   if the userLevel < 4 then set the userLevel to 4
  25. end closeCard
  26.  
  27.  
  28.  
  29. -- part 32 (button)
  30. -- low flags: 00
  31. -- high flags: 0000
  32. -- rect: left=63 top=49 right=255 bottom=447
  33. -- title width / last selected line: 0
  34. -- icon id / first selected line: 0 / 0
  35. -- text alignment: 1
  36. -- font id: 0
  37. -- text size: 12
  38. -- style flags: 0
  39. -- line height: 16
  40. -- part name: 
  41. ----- HyperTalk script -----
  42. on mouseUp
  43.   toggleAboutBox
  44. end mouseUp
  45.  
  46.  
  47.  
  48. -- part 23 (button)
  49. -- low flags: 80
  50. -- high flags: 8003
  51. -- rect: left=65 top=11 right=33 bottom=138
  52. -- title width / last selected line: 0
  53. -- icon id / first selected line: 0 / 0
  54. -- text alignment: 1
  55. -- font id: 0
  56. -- text size: 12
  57. -- style flags: 0
  58. -- line height: 16
  59. -- part name: Magic
  60. ----- HyperTalk script -----
  61. on mouseUp
  62.   set hilite of me to true
  63.   lock screen
  64.   go to card "Portrait"
  65.   put not visible of button "Scan 2" into showHide
  66.   set visible of button "Scan 2" to showHide
  67.   set visible of button "Scan 8" to showHide
  68.   set visible of button "Scan 32" to showHide
  69.   go to card "Landscape"
  70.   set visible of button "Scan 2" to showHide
  71.   set visible of button "Scan 8" to showHide
  72.   set visible of button "Scan 32" to showHide
  73.   go to first card
  74.   set hilite of me to false
  75.   set visible of me to showHide
  76.   unlock screen
  77. end mouseUp
  78.  
  79.  
  80.  
  81. -- part 24 (button)
  82. -- low flags: 00
  83. -- high flags: 0000
  84. -- rect: left=465 top=0 right=41 bottom=512
  85. -- title width / last selected line: 0
  86. -- icon id / first selected line: 2478 / 2478
  87. -- text alignment: 1
  88. -- font id: 0
  89. -- text size: 12
  90. -- style flags: 0
  91. -- line height: 16
  92. -- part name: 
  93. ----- HyperTalk script -----
  94. on mouseUp
  95.   toggleAboutBox
  96. end mouseUp
  97.  
  98.  
  99.  
  100. -- part 25 (button)
  101. -- low flags: 00
  102. -- high flags: 0000
  103. -- rect: left=1 top=0 right=44 bottom=52
  104. -- title width / last selected line: 0
  105. -- icon id / first selected line: 1011 / 1011
  106. -- text alignment: 1
  107. -- font id: 0
  108. -- text size: 12
  109. -- style flags: 0
  110. -- line height: 16
  111. -- part name: Home
  112. ----- HyperTalk script -----
  113. on mouseUp
  114.   visual effect iris close
  115.   go home
  116. end mouseUp
  117.  
  118.  
  119.  
  120. -- part 26 (button)
  121. -- low flags: 00
  122. -- high flags: 0000
  123. -- rect: left=57 top=275 right=318 bottom=112
  124. -- title width / last selected line: 0
  125. -- icon id / first selected line: 0 / 0
  126. -- text alignment: 1
  127. -- font id: 0
  128. -- text size: 12
  129. -- style flags: 0
  130. -- line height: 16
  131. -- part name: Help
  132. ----- HyperTalk script -----
  133. on mouseUp
  134.   visual effect zoom open
  135.   go first card of background "Help"
  136. end mouseUp
  137.  
  138.  
  139.  
  140. -- part 27 (button)
  141. -- low flags: 00
  142. -- high flags: 0000
  143. -- rect: left=128 top=274 right=321 bottom=171
  144. -- title width / last selected line: 0
  145. -- icon id / first selected line: 0 / 0
  146. -- text alignment: 1
  147. -- font id: 0
  148. -- text size: 12
  149. -- style flags: 0
  150. -- line height: 16
  151. -- part name: Portrait
  152. ----- HyperTalk script -----
  153. on mouseUp
  154.   visual effect zoom open
  155.   go to card "Portrait"
  156. end mouseUp
  157.  
  158.  
  159.  
  160. -- part 28 (button)
  161. -- low flags: 00
  162. -- high flags: 0000
  163. -- rect: left=188 top=278 right=320 bottom=242
  164. -- title width / last selected line: 0
  165. -- icon id / first selected line: 0 / 0
  166. -- text alignment: 1
  167. -- font id: 0
  168. -- text size: 12
  169. -- style flags: 0
  170. -- line height: 16
  171. -- part name: Landscape
  172. ----- HyperTalk script -----
  173. on mouseUp
  174.   visual effect zoom open
  175.   go to card "Landscape"
  176. end mouseUp
  177.  
  178.  
  179.  
  180. -- part 29 (button)
  181. -- low flags: 00
  182. -- high flags: 0000
  183. -- rect: left=260 top=278 right=319 bottom=312
  184. -- title width / last selected line: 0
  185. -- icon id / first selected line: 0 / 0
  186. -- text alignment: 1
  187. -- font id: 0
  188. -- text size: 12
  189. -- style flags: 0
  190. -- line height: 16
  191. -- part name: Halftone
  192. ----- HyperTalk script -----
  193. on mouseUp
  194.   visual effect zoom open
  195.   go to card "Halftone"
  196. end mouseUp
  197.  
  198.  
  199.  
  200. -- part 30 (button)
  201. -- low flags: 00
  202. -- high flags: 0000
  203. -- rect: left=329 top=278 right=320 bottom=380
  204. -- title width / last selected line: 0
  205. -- icon id / first selected line: 0 / 0
  206. -- text alignment: 1
  207. -- font id: 0
  208. -- text size: 12
  209. -- style flags: 0
  210. -- line height: 16
  211. -- part name: Effects
  212. ----- HyperTalk script -----
  213. on mouseUp
  214.   visual effect zoom open
  215.   go to card "Effects"
  216. end mouseUp
  217.  
  218.  
  219.  
  220. -- part 31 (button)
  221. -- low flags: 00
  222. -- high flags: 0000
  223. -- rect: left=399 top=276 right=318 bottom=454
  224. -- title width / last selected line: 0
  225. -- icon id / first selected line: 0 / 0
  226. -- text alignment: 1
  227. -- font id: 0
  228. -- text size: 12
  229. -- style flags: 0
  230. -- line height: 16
  231. -- part name: Images
  232. ----- HyperTalk script -----
  233. on mouseUp
  234.   if the optionKey is up then
  235.     visual effect zoom open
  236.     go to stack "HyperScan Samples"
  237.     exit mouseUp
  238.   end if
  239.  
  240.   put 1 + number of card "Effects" into cardNum
  241.   if cardNum > the number of cards
  242.   then answer "There are no saved image cards in this stack."
  243. else
  244.   visual effect zoom open
  245.   go to card cardNum
  246. end if
  247. end mouseUp
  248.  
  249.  
  250.  
  251. -- part 33 (field)
  252. -- low flags: 81
  253. -- high flags: 2004
  254. -- rect: left=62 top=14 right=272 bottom=450
  255. -- title width / last selected line: 0
  256. -- icon id / first selected line: 0 / 0
  257. -- text alignment: 1
  258. -- font id: 2
  259. -- text size: 14
  260. -- style flags: 0
  261. -- line height: 18
  262. -- part name: About
  263. ----- HyperTalk script -----
  264. on mouseUp
  265.   toggleAboutBox
  266. end mouseUp
  267.  
  268.  
  269.  
  270. -- part 20 (button)
  271. -- low flags: 80
  272. -- high flags: 8000
  273. -- rect: left=65 top=219 right=268 bottom=116
  274. -- title width / last selected line: 0
  275. -- icon id / first selected line: 16532 / 16532
  276. -- text alignment: 1
  277. -- font id: 0
  278. -- text size: 12
  279. -- style flags: 0
  280. -- line height: 16
  281. -- part name: Install
  282. ----- HyperTalk script -----
  283. on mouseUp
  284.   lock screen
  285.   set cursor to watch
  286.   show button "HyperScan"
  287.   select button "HyperScan"
  288.   doMenu "Copy Button"
  289.   hide button "HyperScan"
  290.   hide card field "About"
  291.   hide button "Install"
  292.   go home
  293.   repeat with i = 1 to the number of buttons
  294.     if the short name of button i is "HyperScan" then
  295.       go back
  296.       choose browse tool
  297.       answer "HyperScan button was already installed."
  298.       unlock screen with iris close
  299.       exit mouseUp
  300.     end if
  301.   end repeat
  302.   doMenu "Paste Button"
  303.   choose browse tool
  304.   set cursor to hand
  305.   unlock screen
  306.   get the mouseClick -- flush accidental double-click
  307.   put "Drag button to desired location, then click..."
  308.   repeat until the mouseClick
  309.     set loc of button "HyperScan" to the mouseLoc
  310.   end repeat
  311.   put empty into msg
  312. end mouseUp
  313.  
  314.  
  315.  
  316. -- part 22 (button)
  317. -- low flags: 80
  318. -- high flags: 8000
  319. -- rect: left=390 top=221 right=266 bottom=444
  320. -- title width / last selected line: 0
  321. -- icon id / first selected line: 16532 / 16532
  322. -- text alignment: 1
  323. -- font id: 0
  324. -- text size: 12
  325. -- style flags: 0
  326. -- line height: 16
  327. -- part name: HyperScan
  328. ----- HyperTalk script -----
  329. on mouseUp
  330.   visual effect zoom open
  331.   go to stack "HyperScan"
  332. end mouseUp
  333.  
  334.  
  335.  
  336. -- part 34 (field)
  337. -- low flags: 81
  338. -- high flags: 2004
  339. -- rect: left=146 top=97 right=272 bottom=366
  340. -- title width / last selected line: 0
  341. -- icon id / first selected line: 0 / 0
  342. -- text alignment: 0
  343. -- font id: 2
  344. -- text size: 12
  345. -- style flags: 0
  346. -- line height: 15
  347. -- part name: Directions 1
  348.  
  349.  
  350. -- part 35 (button)
  351. -- low flags: 80
  352. -- high flags: 8003
  353. -- rect: left=156 top=239 right=261 bottom=213
  354. -- title width / last selected line: 0
  355. -- icon id / first selected line: 0 / 0
  356. -- text alignment: 1
  357. -- font id: 0
  358. -- text size: 12
  359. -- style flags: 0
  360. -- line height: 16
  361. -- part name: Exit
  362.  
  363.  
  364. -- part 36 (button)
  365. -- low flags: 00
  366. -- high flags: 0002
  367. -- rect: left=1 top=323 right=341 bottom=35
  368. -- title width / last selected line: 0
  369. -- icon id / first selected line: 1300 / 1300
  370. -- text alignment: 1
  371. -- font id: 0
  372. -- text size: 12
  373. -- style flags: 0
  374. -- line height: 16
  375. -- part name: 
  376. ----- HyperTalk script -----
  377. on mouseUp
  378.   ---find out WHERE on the icon you clicked
  379.   put (item 1 of the clickLoc) - (item 1 of the Loc of me) into E
  380.  
  381.   ---if the click was on the left then
  382.   if E < 0 then
  383.     set icon of me to 1301
  384.     wait 1
  385.     set icon of me to 1300
  386.     push card
  387.     put PathWay() & "SN Feedback" into feedPath
  388.     set cursor to watch
  389.     visual effect dissolve fast
  390.     go stack feedPath
  391.  
  392.     ---if the click was on the right then
  393.   else if E > 0 then
  394.     set icon of me to 1302
  395.     wait 1
  396.     set icon of me to 1300
  397.     global navMenu
  398.     visual effect iris close to black
  399.     visual effect iris open
  400.     if navMenu is empty then put "Welcome" into navMenu
  401.     go card navMenu of stack "Support Navigator:Support Navigator"
  402.   end if
  403. end mouseUp
  404.  
  405. Function PathWay
  406. put the long name of stack "Home" into NewName
  407. delete char 1 to 7 of NewName
  408. repeat
  409.   if offset(":",NewName) is 0 then
  410.     exit repeat
  411.   else
  412.     put char 1 to offset(":",NewName) of NewName after NewPath
  413.     delete char 1 to offset(":",NewName) of NewName
  414.   end if
  415. end repeat
  416. return NewPath
  417. end PathWay
  418.  
  419.  
  420. -- part contents for card part 33
  421. ----- text -----
  422.  
  423. HyperScan version 1.0
  424. Copyright 1988 Apple Computer Inc.
  425.  
  426. written by Bill Atkinson, with help from 
  427.  Sioux Lacy, Jim Palmer, Eric Quackenbush,
  428. David Leffler, Robin Shank, James Redfern, 
  429. Susan Kare, Bruce Gee and Tad Browne.
  430.  
  431. This stack lets you use the Apple Scanner
  432. to bring images into HyperCard.
  433.  
  434. Happy scans to you...
  435.  
  436. -- part contents for card part 34
  437. ----- text -----
  438. To use HyperScan, you first choose a portrait or landscape orientation.  Your choice depends on the sample you want to scan.
  439.  
  440. ‚Ä¢  For now, click the Portrait 
  441.     icon to go to the Portrait card.